Electronic Clipper 1996 November/Electronic Clipper 1996 November.iso/ideasrc/pyramid.dir/00016_Script_16

Text File | 1996-10-11 | 2KB | 59 lines

on startmovie
  set the visible of sprite 48 to false
  global slider, toolH, toolV, gallery
  set slider = 0
  set the locH of sprite 40 to toolH
  set the locV of sprite 40 to toolV
  set gallery = "slideshow"
end

on keyDown
  if the key = 1 then set the soundLevel to (1)
  if the key = 2 then set the soundLevel to (2)
  if the key = 3 then set the soundLevel to (3)
  if the key = 4 then set the soundLevel to (4)
  if the key = 5 then set the soundLevel to (5)
  if the key = 6 then set the soundLevel to (6)
  if the key = 7 then set the soundLevel to (7)
end keydown

on stopmovie
  global toolH, toolV
  set toolH = the locH of sprite 40
  set toolV = the locV of sprite 40
end

on pressit button, swap
  puppetsound "clickdn"
  repeat while the mousedown
    set the castnum of sprite button to swap
    updatestage
  end repeat
  puppetsprite button, false
  puppetsound "clickup"
end

on tools
  global slider
  --go the frame
  repeat with n = 41 to 48
    puppetsprite n, true
  end repeat
  set the locV of sprite 41 to the locV of sprite 40 + 29
  repeat with n = 42 to 46
    set the locV of sprite n to the locV of sprite 40 + 36
  end repeat
  repeat with n = 47 to 48
    set the locV of sprite n to the locV of sprite 40 + 13
  end repeat
  set the locH of sprite 41 to the locH of sprite 40 - 1
  set the locH of sprite 42 to the locH of sprite 40 - 63
  set the locH of sprite 43 to the locH of sprite 40 - 32
  set the locH of sprite 44 to the locH of sprite 40 - 1
  set the locH of sprite 45 to the locH of sprite 40 + 30
  set the locH of sprite 46 to the locH of sprite 40 + 61
  set the locH of sprite 47 to the locH of sprite 40 - 65
  set the loch of sprite 48 to the locH of sprite 40 + 40 + slider
  updatestage
end tools